home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr51 / tag_utes.zip / SAMPLE.PRG < prev   
Text File  |  1993-04-01  |  344b  |  24 lines
  1. PROCEDURE Sample
  2. PRIVATE mdbf
  3.  
  4. DO LISTDBFS
  5.  
  6. USE Dbfs
  7.  
  8. SCAN
  9.   STORE LEFT( Dbf, AT(".DBF",Dbf)-1 ) TO mdbf
  10.  
  11. *  STORE TRIM(LEFT(Dbf,8)) TO mdbf
  12.   SELECT SELECT()
  13.   DO PrntTags WITH "&mdbf."
  14.   *-- Could have done the RedoTags procedure -- DO RedoTags WITH "&mdf."
  15.   SELECT ("Dbfs")
  16. ENDSCAN
  17.  
  18. USE
  19.  
  20. RETURN
  21.  
  22.  
  23. *-- EOP: Sample.prg
  24.